home *** CD-ROM | disk | FTP | other *** search
- /*
- ** HiRes Picture Display
- ** ---------------------
- ** Opens a screen of 640x256 pixels in HIRES LACED mode. You can even
- ** try SuperHiRes (SHIRES) if you change the appropriate flag in the
- ** GameScreen structure.
- */
-
- #include <proto/games.h>
-
- extern struct GMSBase *GMSBase;
- ULONG _XCEXIT = NULL;
- APTR PREFSNAME = DEFAULT;
-
- void main(void)
- {
- struct GameScreen *GameScreen;
- struct Picture *pic;
-
- if (pic = LoadPicFile("GMS:demos/data/PIC.Pic640x256",GETPALETTE|VIDEOMEM)) {
-
- if (GameScreen = AddScreenTags(TAGS_GAMESCREEN,NULL,
- GSA_MemPtr1,pic->Data,
- GSA_AmtColours,pic->AmtColours,
- GSA_Planes,pic->Planes,
- GSA_ScrWidth,640,
- GSA_ScrHeight,256,
- GSA_PicWidth,pic->Width,
- GSA_PicHeight,pic->Height,
- GSA_ScrType,pic->ScrType,
- GSA_Palette,pic->Palette,
- GSA_ScrMode,HIRES|LACED,
- TAGEND)) {
-
- ShowScreen(GameScreen);
- WaitLMB();
-
- FreePic(pic);
- }
- DeleteScreen(GameScreen);
- }
- }
-
-